home *** CD-ROM | disk | FTP | other *** search
/ Total Network Tools 2002 / NextStepPublishing-TotalNetworkTools2002-Win95.iso / Archive / IRC Chat / polaris2001v304.EXE / Addons / clones2.ini < prev    next >
Encoding:
INI File  |  1999-08-28  |  24.7 KB  |  494 lines
  1. [script]
  2. n0=; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  3. n1=; Clone Manager v1.2
  4. n2=; Programmed by Sir MixALot  - ⌐1999
  5. n3=; Bug reports, coments...anything you want, to awesome@mailbr.com.br
  6. n4=; Visit me in #scriptx on irc.trix.net port 6667 and send a memo to MixALot ok?
  7. n5=; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  8. n6=
  9. n7=on 1:sockopen:clone*: {
  10. n8=  if ($numtok(%clones.pilha,58) > 1) set %clones.pilha $deltok(%clones.pilha,1,58)
  11. n9=  if ($sockerr > 0) {
  12. n10=    echo 5 -st Clones: $calc( %clones.connected + 1 ) error connecting...
  13. n11=    sockclose $sockname
  14. n12=    dec %clones.to.connect
  15. n13=    if (%clones.to.connect > 0) {
  16. n14=      if ($gettok(%clones.pilha,1,58) != empty) clones connect2 $gettok(%clones.pilha,1,58) %clones.to.connect
  17. n15=    }
  18. n16=    else {
  19. n17=      set %clones.pilha empty
  20. n18=    }
  21. n19=    halt
  22. n20=  }
  23. n21=  inc %clones.connected
  24. n22=  dec %clones.to.connect
  25. n23=  .timer 1 0 sockwrite -tn $sockname User $rand(A,Z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) 2 3 :XXXXX
  26. n24=  .timer 1 0 sockwrite -tn $sockname Nick $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58)
  27. n25=  echo 5 -st Clones: %clones.connected clone(s) connected
  28. n26=  set %clones.sock. $+ $remove($sockname,clone) $puttok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,4,58 )
  29. n27=  set %clones.window @Status: $+ $chr(160) $+ Clone $+ $remove($sockname,clone)
  30. n28=  if ($window(%clones.window) != $null) titlebar %clones.window ( $+ $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58) $+ ) $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,2,58)
  31. n29=  .timer 1 0 clone.connected
  32. n30=  if ($window(@Query*,0) > 0) {
  33. n31=    set %clones.aux5 0
  34. n32=    :next1
  35. n33=    inc %clones.aux5
  36. n34=    if ($gettok($window(@Query*,%clones.aux5),2,160) == $sockname) {
  37. n35=      set %clones.query @Query: $+ $chr(160) $+ Clone $+ $remove($sockname,clone) $+ $chr(160) $+ ( $+ $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58) $+ ) $+ $chr(160) $+ $gettok($window(@Query*,%clones.aux5),4,160)
  38. n36=      renwin $window(@Query*,%clones.aux5) %clones.query
  39. n37=    }
  40. n38=    if (%clones.aux5 < $window(@Query*,0)) goto next1
  41. n39=  }
  42. n40=  if ($window(@Channel*,0) > 0) {
  43. n41=    set %clones.aux5 0
  44. n42=    :next2
  45. n43=    inc %clones.aux5
  46. n44=    if ($gettok($window(@Channel*,%clones.aux5),2,160) == $sockname) {
  47. n45=      echo 2 $window(@Channel*,%clones.aux5) *** Attempting to rejoin...
  48. n46=      set %clones.Channel @Channel: $+ $chr(160) $+ Clone $+ $remove($sockname,clone) $+ $chr(160) $+ ( $+ $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58) $+ ) $+ $chr(160) $+ $gettok($window(@Channel*,%clones.aux5),4,160)
  49. n47=      if ($window(@Channel*,%clones.aux5) != %clones.Channel) renwin $window(@Channel*,%clones.aux5) %clones.Channel
  50. n48=      dline -l %clones.Channel 1- [ $+ [ $line(%clones.Channel,0,1) ] ]
  51. n49=    }
  52. n50=    if (%clones.aux5 < $window(@Channel*,0)) goto next2
  53. n51=  }
  54. n52=  if (%clones.to.connect > 0) {
  55. n53=    if ($gettok(%clones.pilha,1,58) != empty) .timer -m 1 500 clones connect2 $gettok(%clones.pilha,1,58) %clones.to.connect
  56. n54=  }
  57. n55=  else {
  58. n56=    set %clones.pilha empty
  59. n57=  }
  60. n58=}
  61. n59=
  62. n60=on 1:sockclose:clone*: {
  63. n61=  set %clones.sock. $+ $remove($sockname,clone) $puttok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,0,12,58)
  64. n62=  dec %clones.connected
  65. n63=  if ($gettok(%clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,5,58) == 1) {
  66. n64=    if ($gettok(%clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,4,58) == 1) {
  67. n65=      clone.aqueue $gettok(%clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,2,58) $+ : $+ $gettok(%clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,3,58)
  68. n66=    }
  69. n67=  }
  70. n68=  if (%clones.connected == 0) {
  71. n69=    echo 5 -st Clones: no more clone(s) connected
  72. n70=  }
  73. n71=  if (%clones.connected > 0) {
  74. n72=    echo 5 -st Clones: %clones.connected clone(s) connected
  75. n73=  }
  76. n74=  set %clones.window @Status: $+ $chr(160) $+ Clone $+ $remove($sockname,clone)
  77. n75=  if ($window(%clones.window) != $null) echo 2 %clones.window *** Disconnected
  78. n76=  set %clones.aux11 1
  79. n77=  :next1
  80. n78=  if ($gettok($window(@Channel*,%clones.aux11),2,160) == $sockname) {
  81. n79=    echo 2 $window(@Channel*,%clones.aux11) *** Disconnected
  82. n80=  }
  83. n81=  inc %clones.aux11
  84. n82=  if (%clones.aux11 <= $window(@Channel*,0)) goto next1
  85. n83=  set %clones.aux11 1
  86. n84=  :next2
  87. n85=  if ($gettok($window(@Query*,%clones.aux11),2,160) == $sockname) {
  88. n86=    echo 2 $window(@Query*,%clones.aux11) *** Disconnected
  89. n87=  }
  90. n88=  inc %clones.aux11
  91. n89=  if (%clones.aux11 <= $window(@Query*,0)) goto next2
  92. n90=  .timer 1 0 clone.connected
  93. n91=  sockclose $sockname
  94. n92=}
  95. n93=
  96. n94=on 1:sockread:clone*: {
  97. n95=  if ($sockerr > 0) return
  98. n96=  :nextread
  99. n97=  sockread %clones.tmp
  100. n98=  if ($sockbr == 0) return
  101. n99=  if (%clones.tmp == $null) {
  102. n100=    goto nextread
  103. n101=  }
  104. n102=  if ($mid(%clones.tmp,1,4) == PING) {
  105. n103=    sockwrite -tn $sockname PONG $remove($remove(%clones.tmp,ping :),ping)
  106. n104=    clone.status $remove($sockname,clone) 3PING? PONG!
  107. n105=    halt
  108. n106=  }
  109. n107=  if ($gettok(%clones.tmp,1,32) == NOTICE) halt
  110. n108=  set %clones.from $gettok(%clones.tmp,1,32)
  111. n109=  set %clones.event $gettok(%clones.tmp,2,32)
  112. n110=  if (%clones.event == PRIVMSG) {
  113. n111=    set %clones.from $remove($gettok(%clones.from,1,33),:)
  114. n112=    set %clones.to $gettok(%clones.tmp,3,32)
  115. n113=    set %clones.ctcp $gettok(%clones.tmp,2,1)
  116. n114=    if ( $chr(36) $+ $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,2,58) == %clones.to ) {
  117. n115=      set %clones.status @Status: $+ $chr(160) $+ Clone $+ $remove($sockname,clone)
  118. n116=      echo 5 %clones.status ( $+ %clones.from $+ ) $gettok(%clones.tmp,2-,58)
  119. n117=      halt
  120. n118=    }
  121. n119=    if (%clones.ctcp == VERSION) { sockwrite -tn $sockname NOTICE %clones.from :VERSION mIRC32 v5.5 K.Mardam-Bey | halt }
  122. n120=    if (%clones.ctcp == TIME) { sockwrite -tn $sockname NOTICE %clones.from :TIME $fulldate $+  | halt }
  123. n121=    if ($gettok(%clones.ctcp,1,32) == PING) { sockwrite -tn $sockname NOTICE %clones.from :PING $remove(%clones.ctcp,PING ) | halt }
  124. n122=    set %clones.parms $right($gettok(%clones.tmp,4-,32),$calc($len($gettok(%clones.tmp,4-,32)) - 1))
  125. n123=    if (%clones.to == $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58)) {
  126. n124=      set %clones.query @Query: $+ $chr(160) $+ Clone $+ $remove($sockname,clone) $+ $chr(160) $+ ( $+ $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58) $+ ) $+ $chr(160) $+ %clones.from
  127. n125=      if ($window(%clones.query) == $null) window -ekns %clones.query -1 -1 420 170
  128. n126=      if ($gettok(%clones.ctcp,1,32) == ACTION) {
  129. n127=        echo %clones.query 6* %clones.from $gettok(%clones.ctcp,2-,32)
  130. n128=        halt
  131. n129=      }
  132. n130=      echo %clones.query < $+ %clones.from $+ > %clones.parms
  133. n131=      halt
  134. n132=    }
  135. n133=    else {
  136. n134=      set %clones.channel @Channel: $+ $chr(160) $+ Clone $+ $remove($sockname,clone) $+ $chr(160) $+ ( $+ $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58) $+ ) $+ $chr(160) $+ %clones.to
  137. n135=      if ($window(%clones.channel) == $null) window -ekns %clones.channel -1 -1 420 170
  138. n136=      if ($gettok(%clones.ctcp,1,32) == ACTION) {
  139. n137=        echo %clones.channel 6* %clones.from $gettok(%clones.ctcp,2-,32)
  140. n138=        halt
  141. n139=      }
  142. n140=      echo %clones.channel < $+ %clones.from $+ > %clones.parms
  143. n141=      halt
  144. n142=    }
  145. n143=  }
  146. n144=  elseif (%clones.event isnum) {
  147. n145=    set %clones.from $remove($gettok(%clones.from,1,33),:)
  148. n146=    set %clones.to $gettok(%clones.tmp,3,32)
  149. n147=    set %clones.parms $remove(%clones.tmp,$gettok(%clones.tmp,1-3,32))
  150. n148=    if (%clones.event == 372) { set %clones.parms $replace(%clones.parms,$chr(32),$chr(160)) }
  151. n149=    if (%clones.event == 321) { echo 5 -st Clones: Listing Channels | set %list.total 0 | halt }
  152. n150=    if (%clones.event == 322) { listwindow %clones.tmp | halt }
  153. n151=    if (%clones.event == 323) { echo 5 -st Clones: End of Channels | halt }
  154. n152=    clone.status $remove($sockname,clone) %clones.event %clones.parms
  155. n153=    halt
  156. n154=  }
  157. n155=  elseif (%clones.event == NOTICE) {
  158. n156=    set %clones.from $remove($gettok(%clones.from,1,33),:)
  159. n157=    set %clones.to $gettok(%clones.tmp,3,32)
  160. n158=    set %clones.parms $right($gettok(%clones.tmp,4-,32),$calc($len($gettok(%clones.tmp,4-,32)) - 1))
  161. n159=    clone.status $remove($sockname,clone) 5- $+ %clones.from $+ - %clones.parms
  162. n160=    halt
  163. n161=  }
  164. n162=  elseif (%clones.event == MODE) {
  165. n163=    set %clones.from $remove($gettok(%clones.from,1,33),:)
  166. n164=    set %clones.chan $gettok(%clones.tmp,3,32)
  167. n165=    set %clones.mode $remove($gettok(%clones.tmp,4,32),:)
  168. n166=    set %clones.to $gettok(%clones.tmp,5-,32)
  169. n167=    if (%clones.to == $null) {
  170. n168=      if (%clones.from == %clones.chan) {
  171. n169=        set %clones.channel @Status: $+ $chr(160) $+ Clone $+ $remove($sockname,clone)
  172. n170=        if ($window(%clones.channel)) echo 3 %clones.channel *** %clones.from sets mode: %clones.mode
  173. n171=      }
  174. n172=      else {
  175. n173=        set %clones.channel @Channel: $+ $chr(160) $+ Clone $+ $remove($sockname,clone) $+ $chr(160) $+ ( $+ $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58) $+ ) $+ $chr(160) $+ %clones.chan
  176. n174=        if ($window(%clones.channel)) echo 3 %clones.channel *** %clones.from sets mode: %clones.mode
  177. n175=      }
  178. n176=      halt
  179. n177=    }
  180. n178=    clone.channels MODE $remove($sockname,clone) %clones.from %clones.mode %clones.chan %clones.to
  181. n179=    halt
  182. n180=  }
  183. n181=  elseif (%clones.event == NICK) {
  184. n182=    set %clones.from $remove($gettok(%clones.from,1,33),:)
  185. n183=    set %clones.to $right($gettok(%clones.tmp,3,32),$calc($len($gettok(%clones.tmp,3,32)) - 1))
  186. n184=    if ($gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58) == %clones.from) {
  187. n185=      set %clones.window @Status: $+ $chr(160) $+ Clone $+ $remove($sockname,clone)
  188. n186=      set %clones.sock. $+ $remove($sockname,clone) $puttok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,%clones.to,1,58 )
  189. n187=      if ($window(%clones.window) != $null) {
  190. n188=        writeini %clones.dir clones clone [ $+ [ $remove($sockname,clone) ] ] %clones.sock. [ $+ [ $remove($sockname,clone) ] ]
  191. n189=        echo 3 %clones.window *** Your nick is now %clones.to
  192. n190=        titlebar %clones.window ( $+ $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58) $+ ) $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,2,58)
  193. n191=      }
  194. n192=      .timer 1 0 clone.connected
  195. n193=    }
  196. n194=    clone.querys $remove($sockname,clone) %clones.from %clones.to
  197. n195=    clone.channels2 $remove($sockname,clone) %clones.from %clones.to
  198. n196=    clone.channels NICK $remove($sockname,clone) %clones.from %clones.to
  199. n197=    halt
  200. n198=  }
  201. n199=  elseif (%clones.event == JOIN) {
  202. n200=    set %clones.host $gettok(%clones.from,2,33)
  203. n201=    set %clones.from $remove($gettok(%clones.from,1,33),:)
  204. n202=    set %clones.chan $remove($gettok(%clones.tmp,3,32),:)
  205. n203=    clone.channels JOIN $remove($sockname,clone) %clones.from %clones.host %clones.chan
  206. n204=    halt
  207. n205=  }
  208. n206=  elseif (%clones.event == PART) {
  209. n207=    set %clones.host $gettok(%clones.from,2,33)
  210. n208=    set %clones.from $remove($gettok(%clones.from,1,33),:)
  211. n209=    set %clones.chan $remove($gettok(%clones.tmp,3,32),:)
  212. n210=    clone.channels PART $remove($sockname,clone) %clones.from %clones.host %clones.chan
  213. n211=    halt
  214. n212=  }
  215. n213=  elseif (%clones.event == KICK) {
  216. n214=    set %clones.from $remove($gettok(%clones.from,1,33),:)
  217. n215=    set %clones.chan $gettok(%clones.tmp,3,32)
  218. n216=    set %clones.to $gettok(%clones.tmp,4,32)
  219. n217=    set %clones.parms $right($gettok(%clones.tmp,5-,32),$calc($len($gettok(%clones.tmp,5-,32)) - 1))
  220. n218=    clone.channels KICK $remove($sockname,clone) %clones.from %clones.to %clones.chan %clones.parms
  221. n219=    halt
  222. n220=  }
  223. n221=  elseif (%clones.event == QUIT) {
  224. n222=    set %clones.host $gettok(%clones.from,2,33)
  225. n223=    set %clones.from $remove($gettok(%clones.from,1,33),:)
  226. n224=    set %clones.parms $right($gettok(%clones.tmp,3-,32),$calc($len($gettok(%clones.tmp,3-,32)) - 1))
  227. n225=    clone.channels QUIT $remove($sockname,clone) %clones.from %clones.host %clones.parms
  228. n226=    halt
  229. n227=  }
  230. n228=  elseif (%clones.event == TOPIC) {
  231. n229=    set %clones.from $remove($gettok(%clones.from,1,33),:)
  232. n230=    set %clones.chan $gettok(%clones.tmp,3,32)
  233. n231=    set %clones.channel @Channel: $+ $chr(160) $+ Clone $+ $remove($sockname,clone) $+ $chr(160) $+ ( $+ $gettok( %clones.sock. [ $+ [ $remove($sockname,clone) ] ] ,1,58) $+ ) $+ $chr(160) $+ %clones.chan
  234. n232=    if ($window(%clones.channel)) {
  235. n233=      echo 3 %clones.channel *** %clones.from changes topic to ' $+ $gettok(%clones.tmp,2-,58) $+ '
  236. n234=      titlebar %clones.channel ' $+ $gettok(%clones.tmp,2-,58) $+ '
  237. n235=    }
  238. n236=    halt
  239. n237=  }
  240. n238=  elseif ($gettok(%clones.tmp,1,32) == ERROR) {
  241. n239=    set %clones.ch $+ $remove($sockname,clone) empty
  242. n240=    set %clones.parms $gettok(%clones.tmp,4-,32)
  243. n241=    clone.status $remove($sockname,clone) ERROR %clones.parms
  244. n242=    halt
  245. n243=  }
  246. n244=  echo 5 -st ? %clones.tmp
  247. n245=}
  248. n246=
  249. n247=alias clone.status {
  250. n248=  set %clones.window @Status: $+ $chr(160) $+ Clone $+ $1
  251. n249=  if ($window(%clones.window) == $null) {
  252. n250=    if ($gettok( %clones.sock. [ $+ [ $1 ] ] ,11,58) == $null) {
  253. n251=      window -ekns %clones.window -1 -1 420 170
  254. n252=    }
  255. n253=    else {
  256. n254=      window -ekns %clones.window $gettok( %clones.sock. [ $+ [ $1 ] ] ,11,58)
  257. n255=    }
  258. n256=    titlebar %clones.window ( $+ $gettok( %clones.sock. [ $+ [ $1 ] ] ,1,58) $+ ) $gettok( %clones.sock. [ $+ [ $1 ] ] ,2,58)
  259. n257=  }
  260. n258=  set %clones.channel @Channel: $+ $chr(160) $+ Clone $+ $1 $+ $chr(160) $+ ( $+ $gettok( %clones.sock. [ $+ [ $1 ] ] ,1,58) $+ ) $+ $chr(160) $+ $3
  261. n259=  if ($2 == 332) {
  262. n260=    titlebar %clones.channel ' $+ $gettok(%clones.tmp,2-,58) $+ '
  263. n261=    echo 3 %clones.channel *** Topic is ' $+ $gettok(%clones.tmp,2-,58) $+ '
  264. n262=    halt
  265. n263=  }
  266. n264=  if ($2 == 333) {
  267. n265=    echo 3 %clones.channel *** Set by $4 on $asctime($5)
  268. n266=    halt
  269. n267=  }
  270. n268=  if ($2 == 353) {
  271. n269=    set %clones.channel @Channel: $+ $chr(160) $+ Clone $+ $1 $+ $chr(160) $+ ( $+ $gettok( %clones.sock. [ $+ [ $1 ] ] ,1,58) $+ ) $+ $chr(160) $+ $4
  272. n270=    echo 1 %clones.window $4-
  273. n271=    set %clones.nicks $gettok($1-,2,58)
  274. n272=    set %clones.aux14 0
  275. n273=    :next1
  276. n274=    inc %clones.aux14
  277. n275=    if ($window(%clones.channel)) {
  278. n276=      aline -l %clones.channel $semvoice($gettok(%clones.nicks,%clones.aux14,32))
  279. n277=    }
  280. n278=    if (%clones.aux14 < $numtok(%clones.nicks,32)) goto next1
  281. n279=    halt
  282. n280=  }
  283. n281=  if ($2 == 366) {
  284. n282=    echo 1 %clones.window $2-
  285. n283=    halt
  286. n284=  }
  287. n285=  if ($2 == 376) || ($2 == 422) {
  288. n286=    set %clones.sock. $+ $1 $puttok( %clones.sock. [ $+ [ $1 ] ] ,1,12,58 )
  289. n287=    if ($window(@Channel*,0) > 0) {
  290. n288=      set %clones.aux6 0
  291. n289=      :next2
  292. n290=      inc %clones.aux6
  293. n291=      if ( $gettok($window(@Channel*,%clones.aux6),2,160) == clone [ $+ [ $1 ] ] ) {
  294. n292=        .timer 1 3 sockwrite -tn Clone $+ $1 JOIN $gettok($window(@Channel*,%clones.aux6),4,160)
  295. n293=      }
  296. n294=      if (%clones.aux6 < $window(@Channel*,0)) goto next2
  297. n295=    }
  298. n296=    if ($gettok( %clones.sock. [ $+ [ $1 ] ] ,6,58) == 1) {
  299. n297=      .timer 1 3 sockwrite -tn Clone $+ $1 JOIN $gettok( %clones.sock. [ $+ [ $1 ] ] ,7,58)
  300. n298=    }
  301. n299=    echo 1 %clones.window $2-
  302. n300=    halt
  303. n301=  }
  304. n302=  if ($2 == 433) {
  305. n303=    if ($gettok( %clones.sock. [ $+ [ $1 ] ] ,12,58) == 0) {
  306. n304=      set %clones.from $gettok( %clones.sock. [ $+ [ $1 ] ] ,1,58)
  307. n305=      set %clones.to $rand(A,Z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
  308. n306=      set %clones.sock. $+ $1 $puttok( %clones.sock. [ $+ [ $1 ] ] ,%clones.to,1,58 )
  309. n307=      if ($window(%clones.window) != $null) {
  310. n308=        writeini %clones.dir clones clone [ $+ [ $1 ] ] %clones.sock. [ $+ [ $1 ] ]
  311. n309=        echo 3 %clones.window *** Your nick is now %clones.to
  312. n310=        titlebar %clones.window ( $+ $gettok( %clones.sock. [ $+ [ $1 ] ] ,1,58) $+ ) $gettok( %clones.sock. [ $+ [ $1 ] ] ,2,58)
  313. n311=      }
  314. n312=      clone.connected
  315. n313=      clone.querys $1 %clones.from %clones.to
  316. n314=      clone.channels2 $1 %clones.from %clones.to
  317. n315=      clone.channels NICK $1 %clones.from %clones.to
  318. n316=      sockwrite -tn Clone [ $+ [ $1 ] ] NICK %clones.to
  319. n317=      halt
  320. n318=    }
  321. n319=  }
  322. n320=  if ($2 == 474) {
  323. n321=    if ($gettok( %clones.sock. [ $+ [ $1 ] ] ,6,58) == 1) {
  324. n322=      .timer 1 3 sockwrite -tn Clone $+ $1 JOIN $3
  325. n323=    }
  326. n324=    echo 1 %clones.window $2-
  327. n325=    halt
  328. n326=  }
  329. n327=  if ($1 != $null) echo %clones.window $replace( $2- , $chr(32) , $chr(160) )
  330. n328=}
  331. n329=
  332. n330=alias clone.querys {
  333. n331=  if ($window(@Query*,0) > 0) {
  334. n332=    set %clones.aux3 0
  335. n333=    :next1
  336. n334=    inc %clones.aux3
  337. n335=    if ($remove($gettok($window(@Query*,%clones.aux3),2,160),clone) == $1) {
  338. n336=      set %clones.aux4 ( $+ $2 $+ )
  339. n337=      if ($gettok($window(@Query*,%clones.aux3),3,160) == %clones.aux4) {
  340. n338=        set %clones.query @Query: $+ $chr(160) $+ Clone $+ $1 $+ $chr(160) $+ ( $+ $3 $+ ) $+ $chr(160) $+ $gettok($window(@Query*,%clones.aux3),4,160)
  341. n339=        renwin $window(@Query*,%clones.aux3) %clones.query
  342. n340=      }
  343. n341=      if ($gettok($window(@Query*,%clones.aux3),4,160) == $2) {
  344. n342=        set %clones.query @Query: $+ $chr(160) $+ Clone $+ $1 $+ $chr(160) $+ ( $+ $gettok( %clones.sock. [ $+ [ $1 ] ] ,1,58) $+ ) $+ $chr(160) $+ $3
  345. n343=        renwin $window(@Query*,%clones.aux3) %clones.query
  346. n344=      }
  347. n345=    }
  348. n346=    if (%clones.aux3 < $window(@Query*,0)) goto next1
  349. n347=  }
  350. n348=}
  351. n349=
  352. n350=alias clone.channels {
  353. n351=  set %clones.window @Channel: $+ $chr(160) $+ Clone $+ $2 $+ $chr(160) $+ ( $+ $gettok( %clones.sock. [ $+ [ $2 ] ] ,1,58) $+ ) $+ $chr(160) $+ $5
  354. n352=  if ($1 == JOIN) {
  355. n353=    if ($3 == $gettok( %clones.sock. [ $+ [ $2 ] ] ,1,58)) {
  356. n354=      set %clones.ch $+ $2 $instok( %clones.ch [ $+ [ $2 ] ] , $5 , $numtok( %clones.ch [ $+ [ $2 ] ] , 58 ) , 58 )
  357. n355=      if ($window(%clones.window) == $null) {
  358. n356=        window -kg1Sel11 %clones.window -1 -1 600 250
  359. n357=        echo 3 %clones.window *** Now talking in $5
  360. n358=      }
  361. n359=      else {
  362. n360=        echo 3 %clones.window *** Rejoined channel $5
  363. n361=      }
  364. n362=    }
  365. n363=    if ($istok( %clones.ch [ $+ [ $2 ] ] , $5 , 58 )) {
  366. n364=      if ($gettok( %clones.sock. [ $+ [ $2 ] ] ,1,58) != $3) {
  367. n365=        aline -l %clones.window $3
  368. n366=        echo 3 %clones.window *** $3 ( $+ $4 $+ ) has joined $5
  369. n367=      }
  370. n368=    }
  371. n369=  }
  372. n370=  elseif ($1 == PART) {
  373. n371=    if ($3 == $gettok( %clones.sock. [ $+ [ $2 ] ] ,1,58)) {
  374. n372=      set %clones.ch $+ $2 $remtok( %clones.ch [ $+ [ $2 ] ] , $5 , 1 , 58 )
  375. n373=      if ($window(%clones.window)) close -@ %clones.window
  376. n374=      halt
  377. n375=    }
  378. n376=    if ($istok( %clones.ch [ $+ [ $2 ] ] , $5 , 58 )) {
  379. n377=      if ($window(%clones.window)) echo 3 %clones.window *** $3 ( $+ $4 $+ ) has left $5
  380. n378=      if ($fline(%clones.window,$3,1,1) != $null) {
  381. n379=        dline -l %clones.window $fline(%clones.window,$3,1,1)
  382. n380=      }
  383. n381=      elseif ($fline(%clones.window, @ [ $+ [ $3 ] ] ,1,1) != $null) {
  384. n382=        dline -l %clones.window $fline(%clones.window, @ [ $+ [ $3 ] ] ,1,1)
  385. n383=      }
  386. n384=    }
  387. n385=  }
  388. n386=  elseif ($1 == KICK) {
  389. n387=    if ($istok( %clones.ch [ $+ [ $2 ] ] , $5 , 58 )) {
  390. n388=      if ($fline(%clones.window,$4,1,1) != $null) {
  391. n389=        dline -l %clones.window $fline(%clones.window,$4,1,1)
  392. n390=      }
  393. n391=      elseif ($fline(%clones.window, @ [ $+ [ $4 ] ] ,1,1) != $null) {
  394. n392=        dline -l %clones.window $fline(%clones.window, @ [ $+ [ $4 ] ] ,1,1)
  395. n393=      }
  396. n394=      if ($4 == $gettok( %clones.sock. [ $+ [ $2 ] ] ,1,58)) {
  397. n395=        set %clones.ch $+ $2 $remtok( %clones.ch [ $+ [ $2 ] ] , $5 , 1 , 58 )
  398. n396=        echo 3 %clones.window *** You were kicked by $3 ( $+ $6- $+ )
  399. n397=        echo 2 %clones.window *** Attempting to rejoin...
  400. n398=        dline -l %clones.window 1- [ $+ [ $line(%clones.window,0,1) ] ]
  401. n399=        clone.status $2 3*** You were kicked from $5 by $3 ( $+ $6- $+ )
  402. n400=        .timer 1 3 sockwrite -tn Clone $+ $2 JOIN $5
  403. n401=      }
  404. n402=      else {
  405. n403=        if ($window(%clones.window)) echo 3 %clones.window *** $4 was kicked by $3 ( $+ $6- $+ )
  406. n404=      }
  407. n405=    }
  408. n406=  }
  409. n407=  elseif ($1 == QUIT) {
  410. n408=    set %clones.aux7 1
  411. n409=    :next1
  412. n410=    if ($remove($gettok($window(@Channel*,%clones.aux7),2,160),clone) == $2) {
  413. n411=      if ($fline($window(@Channel*,%clones.aux7),$3,1,1) != $null) {
  414. n412=        echo 2 $window(@Channel*,%clones.aux7) *** $3 ( $+ $4 $+ ) has quit IRC ( $+ $5- $+ )
  415. n413=        dline -l $window(@Channel*,%clones.aux7) $fline($window(@Channel*,%clones.aux7),$3,1,1)
  416. n414=      }
  417. n415=      elseif ($fline($window(@Channel*,%clones.aux7), @ [ $+ [ $3 ] ] ,1,1) != $null) {
  418. n416=        echo 2 $window(@Channel*,%clones.aux7) *** $3 ( $+ $4 $+ ) has quit IRC ( $+ $5- $+ )
  419. n417=        dline -l $window(@Channel*,%clones.aux7) $fline($window(@Channel*,%clones.aux7), @ [ $+ [ $3 ] ] ,1,1)
  420. n418=      }
  421. n419=    }
  422. n420=    inc %clones.aux7
  423. n421=    if (%clones.aux7 <= $window(@Channel*,0)) goto next1
  424. n422=  }
  425. n423=  elseif ($1 == NICK) {
  426. n424=    set %clones.aux8 1
  427. n425=    :next2
  428. n426=    if ($remove($gettok($window(@Channel*,%clones.aux8),2,160),clone) == $2) {
  429. n427=      if ($fline($window(@Channel*,%clones.aux8),$3,1,1) != $null) {
  430. n428=        echo 3 $window(@Channel*,%clones.aux8) *** $3 is now known as $4
  431. n429=        dline -l $window(@Channel*,%clones.aux8) $fline($window(@Channel*,%clones.aux8),$3,1,1)
  432. n430=        aline -l $window(@Channel*,%clones.aux8) $4
  433. n431=      }
  434. n432=      elseif ($fline($window(@Channel*,%clones.aux8), @ [ $+ [ $3 ] ] ,1,1) != $null) {
  435. n433=        echo 3 $window(@Channel*,%clones.aux8) *** $3 is now known as $4
  436. n434=        dline -l $window(@Channel*,%clones.aux8) $fline($window(@Channel*,%clones.aux8), @ [ $+ [ $3 ] ] ,1,1)
  437. n435=        aline -l $window(@Channel*,%clones.aux8) @ [ $+ [ $4 ] ]
  438. n436=      }
  439. n437=    }
  440. n438=    inc %clones.aux8
  441. n439=    if (%clones.aux8 <= $window(@Channel*,0)) goto next2
  442. n440=  }
  443. n441=  elseif ($1 == MODE) {
  444. n442=    set %clones.mode empty
  445. n443=    if ($window(%clones.window)) echo 3 %clones.window *** $3 sets mode: $4 $6-
  446. n444=    set %clones.aux12 1
  447. n445=    set %clones.aux13 6
  448. n446=    :next3
  449. n447=    if ($mid($4,%clones.aux12,1) == +) {
  450. n448=      inc %clones.aux12
  451. n449=      :next4
  452. n450=      set %clones.m + $+ $mid($4,%clones.aux12,1)
  453. n451=      if (%clones.m == +o) {
  454. n452=        if ($fline( %clones.window , $ [ $+ [ %clones.aux13 ] ] , 1 , 1 )) rline -l %clones.window $fline( %clones.window , $ [ $+ [ %clones.aux13 ] ] , 1 , 1 ) @ $+ $ [ $+ [ %clones.aux13 ] ]
  455. n453=      }
  456. n454=      inc %clones.aux12
  457. n455=      inc %clones.aux13
  458. n456=      if (%clones.aux12 > $len($4)) goto done3
  459. n457=      if ($mid($4,%clones.aux12,1) != +) && ($mid($4,%clones.aux12,1) != -) goto next4
  460. n458=    }
  461. n459=    if ($mid($4,%clones.aux12,1) == -) {
  462. n460=      inc %clones.aux12
  463. n461=      :next5
  464. n462=      set %clones.m - $+ $mid($4,%clones.aux12,1)
  465. n463=      if (%clones.m == -o) {
  466. n464=        if ($fline( %clones.window , @ [ $+ [ $ [ $+ [ %clones.aux13 ] ] ] ] , 1 , 1 )) rline -l %clones.window $fline( %clones.window , @ [ $+ [ $ [ $+ [ %clones.aux13 ] ] ] ] , 1 , 1 ) $ [ $+ [ %clones.aux13 ] ]
  467. n465=      }
  468. n466=      inc %clones.aux12
  469. n467=      inc %clones.aux13
  470. n468=      if (%clones.aux12 > $len($4)) goto done3
  471. n469=      if ($mid($4,%clones.aux12,1) != +) && ($mid($4,%clones.aux12,1) != -) goto next5
  472. n470=    }
  473. n471=    if %clones.aux12 <= $len($4) goto next3
  474. n472=    :done3
  475. n473=    echo 5 -
  476. n474=  }
  477. n475=}
  478. n476=
  479. n477=alias clone.channels2 {
  480. n478=  if ($window(@Channel*,0) > 0) {
  481. n479=    set %clones.aux9 0
  482. n480=    :next10
  483. n481=    inc %clones.aux9
  484. n482=    if ($remove($gettok($window(@Channel*,%clones.aux9),2,160),clone) == $1) {
  485. n483=      set %clones.aux10 ( $+ $2 $+ )
  486. n484=      if ($gettok($window(@Channel*,%clones.aux9),3,160) == %clones.aux10) {
  487. n485=        set %clones.Channel @Channel: $+ $chr(160) $+ Clone $+ $1 $+ $chr(160) $+ ( $+ $3 $+ ) $+ $chr(160) $+ $gettok($window(@Channel*,%clones.aux9),4,160)
  488. n486=        renwin $window(@Channel*,%clones.aux9) %clones.Channel
  489. n487=      }
  490. n488=    }
  491. n489=    if (%clones.aux9 < $window(@Channel*,0)) goto next10
  492. n490=  }
  493. n491=}
  494.